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Public Function XXXXFillDataSet(ByVal dataSet As DataSet{,ByVal {ParameterName} As System. {ParameterType}}) As Long 

' Copy input Parameter Values to the Parameter Collection 
DIM vtParameter As Varient 
vtParameterl = {ParameterName} 

Set {Adapterinstance}. SelectCommand. Parameters. ltem(ParameterName.Value=vtParameter1 
'Create an error handling block in case filldataset throws an exception 
Try 

'Load dataSet from the command 

XXXXXFillDataSet = {Adapterlnstance}.FillDataSet(dataset) 
Catch eFillExecption as Exception 

*if we can do a debug. print without a reference, then we should print the 

'error info to the output window and re-throw the error. 
End ^ 701 

End Function 
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i Update Data Set Method 

RQblic Function XXXXUodateDataSet (ByVal updateDataSet As DataSet) As Long 

f const DataCursorRowState flag = DataCursorRowState.new | DataCursorRowState. Deleted | 
[JitaCursorRowState.ModifiedCurrent; 
f U DataRowQ datarows = dataTable.Selectf ", " flag); 

H Dim UpdateRows as DataRows() 
P Dim NewRows as DataRows() 
O Dim DeletedRows as DataRows() 



' Get All of the Deleted Rows and Update the Data Store 

DeletedRows = UpdateDataSet.Selectf ", " DataCursorRowState.Deleted) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterinstance. DefaultSourceTableName); 

End If 

' Get All of the Updates Rows and Update the Data Store 

UpdatedRows = UpdateDataSet.Select(" ", " ", DataCursorRowState.ModifiedCurrent) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterinstance. DefaultSourceTableName); 

End If 

1 Get All of the New Rows and Update the Data Store 

NewRows = UpdateDataSet.Selectf ", " ", DataCursorRowState.New) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterinstance. DefaultSourceTableName); 

End If 
End Function 
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FillAIIDataSet 



Public Sub FillAIIDataSet(ByVal dataset As DataSet(, ByVal Parameters As System.{ParameterType}) 

' The line below is added for each adapter on the Virtual Design Surface 
' Passing into the function only the necessary parameters 
(AdapterNamel)FillDataSet dataset{, _parameters} 
(AdapterName2)FillDataSet dataset{, _parameters} 



* 



End Sub 



(AdapterNameN)Fill DataSet dataset{, _parameters} 



* 
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UpdateAIIDataSet 



Public Sub Update{DataSetName} (ByVal dataset As DataSet) 



' The line below is added for each adapter on the Virtual Design Surface 



(AdapterNamel)Update dataSet 
(AdapterName2)Update dataSet 



(AdapterNameN)Update dataSet 



* 
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Public Sub FillAIIDataSet(ByVal PurchaseOrder As DataSet(, ByVal Parameters As 
System. {ParameterType}) 

CustomerFillDataSet PurchaseOrder(, __parameters} 
OrderFillDataSet PurchaseOrder(, _parameters} 
OrderDetailFillDataSet PurchaseOrder(, _parameters} 



End Sub 942 

Public Sub UpdateAII (ByVal PurchaseOrder As DataSet) 

' The line below is added for each adapter on the Virtual Design Surface 

OrderDetailUpdate (PurchaseOrder, Filtered (Delete)) 
OrderUpdate (PurchaseOrder, Filtered (Delete)) ^-^^^ 
CustomerUpdate (PurchaseOrder, Filtered (Delete)) 

' The line below is added for each adapter on the Virtual Design Surface 

OrderDetailUpdate (PurchaseOrder, Filtered (Insert | Update)) 
OrderUpdate (PurchaseOrder, Filtered (Insert | Update)) 
CustomerUpdate (PurchaseOrder, Filtered (Insert | Update)) 



End Sub 
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